home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Origami / bindings / fun / error < prev    next >
Encoding:
Text File  |  1996-09-27  |  245 b   |  11 lines
  1. ;OCL{{{}}}
  2. ;OCL{{{  comments
  3. ; stop the macro-execution and give the error-message
  4. ;OCL}}}
  5. @if-using not(ocl-file-error)
  6.   @use (ocl-file-error)
  7.   ;OCL{{{  failed
  8.   ( deffun failed ( bell visible-bell message-exit ( M_FAILED ) ) )
  9.   ;OCL}}}
  10. @fi
  11.